home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1986 March & April
/
rerun-1986-03-04.d64
/
autonumber 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
25 lines
80 sys65517:ifpeek(781)=22thenvic=1
90 if vic thenx=peek(56):base=peek(55)+256*(x-1)+1:poke56,x-1:goto 110
100 base=49152
110 wedge=base+11
120 print"[147] initializing..."
130 fork=basetobase+186:readn:pokek,n:c=c+n:next
140 ifc<>17067thenprint"error in data statements!":end
150 print"[147]to enable, type:":print" auto <increment>"
160 print"to disable, type:":print" auto"
170 x2=int(wedge/256):x1=wedge-x2*256:pokebase+1,x1:pokebase+6,x2
180 if vic=0 then 210
190 c=0:fork=1to6:readn:poke(base+n),peek(base+n)+32:c=c+n:next
200 ifc<>750then140
210 sysbase:clr:new
1000 data 169,11,141,2,3,169,192,141,3,3,96,173,54,3,208,5,173,55,3,240,49,173
1010 data 52,3,240,44,173,56,3,24,109,54,3,141,54,3,173,57,3,109,55,3,141,55,3
1020 data 174,54,3,32,205,189,169,32,32,210,255,169,2,133,198,169,145,141,119
1030 data 2,169,17,141,120,2,32,96,165,134,122,142,58,3,132,123,140,59,3,32
1040 data 115,0,144,67,240,65,201,65,208,84,32,115,0,201,85,208,77,32,115,0
1050 data 201,84,208,70,32,115,0,201,79,208,63,169,0,141,52,3,141,54,3,141,55
1060 data 3,32,115,0,32,107,169,165,20,141,56,3,240,3,141,52,3,165,21,141,57,3
1070 data 240,3,141,52,3,76,116,164,32,107,169,208,8,141,54,3,141,55,3,240,10
1080 data 165,20,141,54,3,165,21,141,55,3,174,58,3,172,59,3,76,134,164
1090 data 50,72,131,154,157,186